Top 10k strings from Animator (1985)(16-48 Tape Magazine).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   2 hl=hl+a(p)
   2 RUN THE TAPE
   1 z$="19000102[4] QUIT PROGRAM":
   1 z$="15000102[3] SAVE ANIMATION":
   1 z$="11000102[2] DISPLAY ANIMATION":
   1 z$="07000102[1] LOAD IN FRAMES OF ANIMATION":
   1 z$="01080203
   1 start address of first frame; must not be less than 32768
   1 len=len-hl
   1 icrodrive ? ";
   1 hl is the same as before
   1 double poke
   1 a(p)=len+1
   1 [4] QUIT PROGRAM
   1 Written for 16/48 Magazine
   1 Do not clear variables
   1 By Paul Taylor, 16.08.1985
   1 Animator Program using Library 1
   1 ;"animator":
   1 ;"animator"
   1 ;"Written for 16/48 by Paul Taylor"
   1 ;"STOP THE TAPE":
   1 ;"Press any key for menu":
   1 ;"Loading frame ";p:
   1 ;"Length: ";len;" bytes"'"Next frame starts at ";hl:
   1 ;"ANIMATOR"
   1 *"m",d;f$+"
   1 ''"If you do not wish to use the","program, type ~quit~ <ENTER>"
   1 '"~GOSUB 600~ must NOT be used if subroutine 500 has not been","called or CLEAR or RUN has been","entered since the frames were","loaded."
   1 '"To display screens, GOSUB 600"
   1 '"Full instructions in the letter recorded before this program on the tape."
   1 "animator"
   1 "The machine code is not present in memory. You must either load the letter recorded previously  on this tape or load Library 1  from issue 21 before loading theanimator.":
   1 "Press ENTER to continue ";
   1 "Number of Frames ? ";f
   1 "If using in your own program:"''"To load in screens, GOSUB 500"
   1 "File name ? ";
   1 "Drive #";d